'++LotusScript Development Environment:2:5:(Options):0:66

'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button, X As Long, Y As Long, Flags As Long)

'++LotusScript Development Environment:2:5:(Declarations):0:2

'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
	Static Source As BUTTON
	Set Source = Bind(Objectname_)
	On Event Click From Source Call Click
End Sub

'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button, X As Long, Y As Long, Flags As Long)
	On Error Resume Next
	With CurrentDocument.www~ Assistant.body
		If Val(.txtNumRows.text) <> 0 Then
			.txtNumRows.background.color.setrgb color_white
			.txtNumRows.font.color.setrgb color_black
			numRows = Val(.txtNumRows.text) - 1
			.txtNumRows.text = Str$(NumRows)
			.txtNumRows.refresh
		Elseif Val(.txtNumRows.text) = 0 Then
			.txtNumRows.background.color.setrgb color_30_gray
			.txtNumRows.font.color.setrgb color_12_gray
		End If
	End With
	Err = 0
End Sub